file <- "/esarchive/scratch/nperez/git/csindicators/inst/power_curves/Enercon_E70_2.3MW.txt"
attr <- scan(file, skip = 3, nlines = 11, what="")
attr <- attr[!attr %in% c("#", "[string]", "m", "m/s", "kW", 
               "[pitch/stall/active_stall/flaps]", "[Ia/IIa/IIIa/S]")]
matrix(unlist(header), ncol = 2, byrow = T)
      [,1]            [,2]                
 [1,] "Name:"         "Enercon_E70_2.3MW" 
 [2,] "Manufacturer:" "Enercon"           
 [3,] "Diameter:"     "71"                
 [4,] "CutIn:"        "2"                 
 [5,] "CutOut:"       "25"                
 [6,] "ReCutIn:"      "unknown"           
 [7,] "RatedSpeed:"   "16"                
 [8,] "RatedPower:"   "2310"              
 [9,] "IECClass:"     "Ia"                
[10,] "Control:"      "pitch"             
[11,] "HubHeights:"   "57,64,74,85,98,113"

