From e959fde98f95f3595e01490b67892678bbcd1b27 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 7 May 2014 14:47:28 +0200 Subject: Fork the gmkin GUI from mkin. See ChangeLog for details --- R/mkin_wide_to_long.R | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 R/mkin_wide_to_long.R (limited to 'R/mkin_wide_to_long.R') diff --git a/R/mkin_wide_to_long.R b/R/mkin_wide_to_long.R deleted file mode 100644 index f1814fc..0000000 --- a/R/mkin_wide_to_long.R +++ /dev/null @@ -1,34 +0,0 @@ -# $Id$ - -# Copyright (C) 2010-2013 Johannes Ranke -# Contact: mkin-devel@lists.berlios.de - -# This file is part of the R package mkin - -# mkin is free software: you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation, either version 3 of the License, or (at your option) any later -# version. - -# This program is distributed in the hope that it will be useful, but WITHOUT -# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS -# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more -# details. - -# You should have received a copy of the GNU General Public License along with -# this program. If not, see -if(getRversion() >= '2.15.1') utils::globalVariables(c("name", "value")) - -mkin_wide_to_long <- function(wide_data, time = "t") -{ - colnames <- names(wide_data) - if (!(time %in% colnames)) stop("The data in wide format have to contain a variable named ", time, ".") - vars <- subset(colnames, colnames != time) - n <- length(colnames) - 1 - long_data <- data.frame( - name = rep(vars, each = length(wide_data[[time]])), - time = as.numeric(rep(wide_data[[time]], n)), - value = as.numeric(unlist(wide_data[vars])), - row.names = NULL) - return(long_data) -} -- cgit v1.2.1