Displaying 1 result from an estimated 1 matches for "cuiep2".
Did you mean:
cuiep
2008 Sep 03
2
basic dataframe question
...s
library(NADA)
data(CuZn)
names(CuZn)
StartCu <- ifelse(CuZn$CuCen == "TRUE", 0, CuZn$Cu)
EndCu <- CuZn$Cu
CuIEP = data.frame(cbind(Cu = CuZn$Cu, CuCen = CuZn$CuCen, StartCu, EndCu))
class(CuZn$CuCen)
#returns "logical"
class(CuIEP$CuCen)
#returns "numeric"
CuIEP2 = data.frame(cbind(Cu = CuZn$Cu, CuCen = as.logical(CuZn$CuCen), StartCu, EndCu))
class(CuIEP2$CuCen)
#returns "numeric"
CuIEP3 = data.frame(cbind(Cu = CuZn$Cu, CuCen = I(CuZn$CuCen), StartCu, EndCu))
class(CuIEP3$CuCen)
#returns "numeric"
I think that I might be missing somet...