Displaying 2 results from an estimated 2 matches for "nbofpolicywithoutgwpmax".
2009 Aug 10
2
(sans objet)
...,
> data1 <- read.csv2("c:/Total1.csv",sep=",")
> data2 <- read.csv2("c:/GWPMax1.csv",sep=",")
> M <- merge(data1, data2, by.x = "Policy.Number", by.y = "Policy.Number")
> nrow(data1)
[1] 20
> nrow(M)
[1] 12
> NbOfPolicyWithoutGWPMax <- nrow(data1)-nrow(M)
> NbOfPolicyWithoutGWPMax
[1] 8
> M$GWP_Max <- as.numeric(as.character(M$GWP_Max))
> m1 <- M[(M[,25]> 0 & M[,25]<1000) ,]
> nrow(m1)
[1] 5
> m2 <- K[(K[,25]>1000 & K[,25]<3000),]
> nrow(m2)
[1] 3
> m3 <- K[(K[,25]>300...
2009 Aug 10
3
how use cat() function?
...otal1.csv",sep=",")
> data2 <- read.csv2("c:/GWPMax1.csv",sep=",")
> M <- merge(data1, data2, by.x = "Policy.Number", by.y = "Policy.Number")
> nrow(data1)
[1] 20
> nrow(M)
[1] 12
> No_GWPMax <- nrow(data1)-nrow(M)
> (NbOfPolicyWithoutGWPMax <- nrow(data1)-nrow(M))
[1] 8
> M$GWP_Max <- as.numeric(as.character(M$GWP_Max))
> class1 <- M[(M[,25]> 0 & M[,25]<1000) ,]
> NbpolicyClass1 <- nrow(class1)
> class2<- K[(K[,25]>1000 & K[,25]<3000),]
> NbpolicyClass2 <- nrow(class2)
> class3...