Displaying 3 results from an estimated 3 matches for "nbpolicyclass1".
Did you mean:
nbpolicyclass2
2009 Aug 10
3
how use cat() function?
i want to print in the console and to have an excel file like this
no_GWP NbOfPolicyClass1[0-1000] NbOfPolicyClass2[1000-3000] NbOfPolicyClass3[> 3000]
No_GWPMax=8 NbpolicyClass1=5 NbpolicyClass2=4 NbpolicyClass3 =3
i have do it like this:!!!
data1 <- read.csv2("c:/Total1.csv",sep=",")
> data2 <- read.csv2("c:/GWPMax1.csv",sep=",")
> M <- merge(data1, data2, by...
2009 Aug 18
1
create a table in the console!!
...E,all.y = TRUE )
> (No_GWPMax<-nrow(M[M[,25]=="NA",]))
[1] 8
> M2<- merge(Data1,Data2, by.x = "Policy.Number",by.y = "Policy.Number")
> M2$GWP_Max <- as.numeric(as.character(M2$GWP_Max ))
> class1 <- M2[M2[,25]>0 & M2[,25]<1000,]
> (NbpolicyClass1 <- nrow(class1))
[1] 5
> class2 <- M2[M2[,25]>1000 & M2[,25]<3000,]
> (NbpolicyClass2 <- nrow(class2))
[1] 3
> class3 <- M2[M2[,25]>3000,]
> (NbpolicyClass3 <- nrow(class3))
[1] 4
can you help me ?
thank you a lot!!
[[alternative HTML version dele...
2009 Aug 18
1
Tr : create a table in the console!!
...E,all.y = TRUE )
> (No_GWPMax<-nrow(M[M[,25]=="NA",]))
[1] 8
> M2<- merge(Data1,Data2, by.x = "Policy.Number",by.y = "Policy.Number")
> M2$GWP_Max <- as.numeric(as.character(M2$GWP_Max ))
> class1 <- M2[M2[,25]>0 & M2[,25]<1000,]
> (NbpolicyClass1 <- nrow(class1))
[1] 5
> class2 <- M2[M2[,25]>1000 & M2[,25]<3000,]
> (NbpolicyClass2 <- nrow(class2))
[1] 3
> class3 <- M2[M2[,25]>3000,]
> (NbpolicyClass3 <- nrow(class3))
[1] 4
can you help me ?
thank you a lot!!
[[alternative HTML version del...