From 1718d434efae26de02754c6622c43f4dc9e624b9 Mon Sep 17 00:00:00 2001 From: jranke Date: Thu, 15 Mar 2012 15:54:14 +0000 Subject: Update kinfit and mkin to the latest version published on BerliOS. git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@17 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- R/mkin_long_to_wide.R | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) (limited to 'R/mkin_long_to_wide.R') diff --git a/R/mkin_long_to_wide.R b/R/mkin_long_to_wide.R index 45ee0a10..ca09b495 100644 --- a/R/mkin_long_to_wide.R +++ b/R/mkin_long_to_wide.R @@ -1,7 +1,28 @@ -mkin_long_to_wide <- function(long_data, time = "time") +# $Id: mkin_long_to_wide.R 96 2011-04-29 11:10:40Z jranke $ + +# Copyright (C) 2010-2011 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 + +mkin_long_to_wide <- function(long_data, time = "time", outtime = "time") { colnames <- unique(long_data$name) wide_data <- data.frame(time = subset(long_data, name == colnames[1], time)) + names(wide_data) <- outtime for (var in colnames) { wide_data[var] <- subset(long_data, name == var, value) } -- cgit v1.2.1