Seems to work fine under 2.15.1
R version 2.15.1 (2012-06-22) -- "Roasted Marshmallows"
Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-pc-mingw32/x64 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
Natural language support but running in an English locale
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
Loading required package: graphics
The following object(s) are masked from 'package:base':
setwd
##-- startup: Thu Jul 26 21:03:55 2012 ------##
> x <- scan(text = "19.2
+ 18
+ 18.8
+ 7.5
+ 14.9
+ 12.4
+ 18.3
+ 16.2
+ 2
+ 3.8
+ 4.2
+ 4.5
+ 11.4
+ 16.9
+ 3.9
+ 3.9
+ 7.7
+ 4
+ 4.1
+ 4.3", what = 0)
Read 20 items
> x
[1] 19.2 18.0 18.8 7.5 14.9 12.4 18.3 16.2 2.0 3.8 4.2 4.5 11.4
16.9 3.9 3.9 7.7 4.0 4.1 4.3
> my.func(x)
Count Mean SD Min Median 90%
95% Max Sum
20.000000 9.800000 6.355851 2.000000 7.600000 18.350000
18.820000 19.200000 196.000000
> Z16<-read.table(text="
+ Summary G Y R T
+ Accts 582 644 NaN 1226
+ AcctCov 230 165 NaN 395
+ Cov% 40 26 NaN 32
+ UnCov% 60 74 NaN 68
+ EqVol11$MM 8.5 10.6 NaN 19.1
+ ",sep="",header=TRUE,stringsAsFactors=FALSE)
> Z16$R[is.nan(Z16$R)]<-0
> str(Z16)
'data.frame': 5 obs. of 5 variables:
$ Summary: chr "Accts" "AcctCov" "Cov%" "UnCov%" ...
$ G : num 582 230 40 60 8.5
$ Y : num 644 165 26 74 10.6
$ R : num 0 0 0 0 0
$ T : num 1226 395 32 68 19.1
> #'data.frame': 5 obs. of 5 variables:
> #$ Summary: chr "Accts" "AcctCov" "Cov%" "UnCov%" ...
> #$ G : num 582 230 40 60 8.5
> #$ Y : num 644 165 26 74 10.6
> #$ R : num 0 0 0 0 0
> #$ T : num 1226 395 32 68 19.1
> Z16[5,2:5]<-paste("$",Z16[5,2:5],sep="")
> Z16[3,2:5]<-paste(Z16[3,2:5],"%",sep="")
> Z16[4,2:5]<-paste(Z16[4,2:5],"%",sep="")
> Z16
Summary G Y R T
1 Accts 582 644 0 1226
2 AcctCov 230 165 0 395
3 Cov% 40% 26% 0% 32%
4 UnCov% 60% 74% 0% 68%
5 EqVol11$MM $8.5 $10.6 $0 $19.1
> # Summary G Y R T
> #1 Accts 582 644 0 1226
> #2 AcctCov 230 165 0 395
> #3 Cov% 40% 26% 0% 32%
> #4 UnCov% 60% 74% 0% 68%
> #5 EqVol11$MM $8.5 $10.6 $0 $19.1
>
>
On Wed, Aug 1, 2012 at 6:23 PM, arun <smartpink...@yahoo.com> wrote:
> Hi,
>
> I am trying to follow the same logic starting from the initial dataset with
> NaN.
>
> Z16<-read.table(text="
> Summary G Y R T
> Accts 582 644 NaN 1226
> AcctCov 230 165 NaN 395
> Cov% 40 26 NaN 32
> UnCov% 60 74 NaN 68
> EqVol11$MM 8.5 10.6 NaN 19.1
> ",sep="",header=TRUE,stringsAsFactors=FALSE)
> Z16$R[is.nan(Z16$R)]<-0
> str(Z16)
> #'data.frame': 5 obs. of 5 variables:
> #$ Summary: chr "Accts" "AcctCov" "Cov%" "UnCov%" ...
> #$ G : num 582 230 40 60 8.5
> #$ Y : num 644 165 26 74 10.6
> #$ R : num 0 0 0 0 0
> #$ T : num 1226 395 32 68 19.1
> Z16[5,2:5]<-paste("$",Z16[5,2:5],sep="")
> Z16[3,2:5]<-paste(Z16[3,2:5],"%",sep="")
> Z16[4,2:5]<-paste(Z16[4,2:5],"%",sep="")
> Z16
> # Summary G Y R T
> #1 Accts 582 644 0 1226
> #2 AcctCov 230 165 0 395
> #3 Cov% 40% 26% 0% 32%
> #4 UnCov% 60% 74% 0% 68%
> #5 EqVol11$MM $8.5 $10.6 $0 $19.1
>
> As I mentioned earlier, check str(), use stringsAsFactors=FALSE in
> read.table(). Not sure if R 2.14.2 version is the problem.
>
>
> A.K.
>
>
> ----- Original Message -----
> From: namit <saileshchowd...@gmail.com>
> To: r-help@r-project.org
> Cc:
> Sent: Wednesday, August 1, 2012 8:51 AM
> Subject: [R] Can any one help me on this Issue
>
> Hi Friends,
>
>
> I'm new to R ,I have a data frame Z16 which is genarated from another data
> frame, and I want to add “%” & “$” in row 4 and 5 respectively. when I’m
> trying using below logic, I’m getting warning message. I'm using R 2.14.2
> Version
> Can anyone help me out on this.
>
> Note: Initially i used tranfrom function to do some calculations,where ever
> it should give zero,its giving NaN,i used Replace function to replace NaN
> with Zero(0)
>
> Z16:
> Summary G Y R T
> Accts 582 644 0 1226
> AcctCov 230 165 0 395
> Cov% 40 26 0 32
> UnCov% 60 74 0 68
> EqVol11$MM 8.5 10.6 0 19.1
>
> Using this logic:
>
> Z16[5,2:5]<-paste("$",Z16[5,2:5],sep="")
> Z16[3,2:5]<-paste(Z16[3,2:5],"%",sep="")
> Z16[4,2:5]<-paste(Z16[4,2:5],"%",sep="")
>
> Getting this Warning: In `[<-.factor`(`*tmp*`, iseq, value = c(3L, 1L, 2L,
> 4L, NA))
> invalid factor level, NAs
> generate
>
>
> Final result:
>
> Summary G Y R T
> Accts 582 644 0 1226
> AcctCov 230 165 0 395
> Cov% 40% 26% 0% 32%
> UnCov% 60% 74% 0% 68%
> EqVol11$MM $8.50 $10.60 $0 $19.10
>
> Thanks in Advance.
>
> Thanks,
> Namit
>
>
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/Can-any-one-help-me-on-this-Issue-tp4638664.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
--
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
