library(dplyr)
library(downloader)
library(rafalib)

#install.packages("zoo")
library(zoo)

#install.packages("ggplot2")
library(ggplot2)
soldata1 = read.csv("010615.txt", sep="\t")
soldata2 = read.csv("020615.txt", sep="\t")
soldata3 = read.csv("030615.txt", sep="\t")
soldata4 = read.csv("040615.txt", sep="\t")
soldata5 = read.csv("050615.txt", sep="\t")
soldata6 = read.csv("060615.txt", sep="\t")
soldata7 = read.csv("070615.txt", sep="\t")
#usoldata1 = select(soldata1, Tamb) %>% unlist
#usoldata2 = select(soldata2, Tamb) %>% unlist
#usoldata3 = select(soldata3, Tamb) %>% unlist
#usoldata4 = select(soldata4, Tamb) %>% unlist
#usoldata5 = select(soldata5, Tamb) %>% unlist
#usoldata6 = select(soldata6, Tamb) %>% unlist
#usoldata7 = select(soldata7, Tamb) %>% unlist
dag1tamb = filter (soldata1, DateAndTime>10615090000, DateAndTime<10615200000) %>% select(Tamb) %>% unlist
dag1pmax = filter (soldata1, DateAndTime>10615090000, DateAndTime<10615200000) %>% select(Pmax.a.Si) %>% unlist
dag1back = filter (soldata1, DateAndTime>10615090000, DateAndTime<10615200000) %>% select(T.a.Si) %>% unlist
dag1sol = filter (soldata1, DateAndTime>10615090000, DateAndTime<10615200000) %>% select(SolData) %>% unlist

for(i in dag1tamb){
  dag1tamb[i]
}

#plot(dag1sol, type="o", col="brown")
plot(dag1pmax, type="o", col="blue")
plot(dag1back, type="o", col="yellow")
#lines(dag1tamb, type="o", col="red")
tempPV = dag1tamb+ (64/1.01)*dag1sol

Enkle modeller for PV-temperaturen avhenger av solinnstråling og ambienttemperatur:
  Temp(PV) = Temp(Ambient) + konstant*Solinnstråling
= Solar irradiance incident on the module (POA) (W/m^2)

#lines(dag1back, type="o", col="yellow")
title(main="Tamb")
View(soldata1)
#View(soldata2)
#View(soldata3)
#View(soldata4)
#View(soldata5)
#View(soldata6)
#View(soldata7)
tamb1 = select(soldata1, Tamb) %>% unlist
View(tamb1)
summary(tamb1)
mean(tamb1)
max(tamb1)
popsd(tamb1)
qqnorm(tamb1)
qqline(0,1)
pmax1 = select(soldata1, Pmax.a.Si) %>% unlist  #bytter ut  space og - med punktum
mean(pmax1)
max(pmax1)