pro test_kepcotrend
;+
; NAME:
;   test_kepcotrend
;     
; PURPOSE:
;   Provides an example for how to use kepcotrend.pro
;
; CALLING SEQUENCE:
;   test_kepcotrend
;
; EXAMPLE:
;   test_kepcotrend
;
; MODIFICATION HISTORY:
;   2012 Dec 13 -- Written by Brian Jackson (decaelus@gmail.com)
;
;-

  lcfile = "kplr010666592-2009131105131_llc.fits"
  cbvfile = "kplr2009131105131-q00-d14_lcbv.fits"
  listbv = indgen(8)
  cotrended_flux = kepcotrend(lcfile, cbvfile, listbv)
  plot, indgen(n_elements(cotrended_flux)), cotrended_flux, psym=3, yr=[min(cotrended_flux), max(cotrended_flux)], ystyle=2
end;pro